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Open() = if not open then 

open:=true 
Close() = if open and counter<Max then 
open:=false 
counter:=counter+1 
if open and counter=Max then 
open:=false 
counter:=0 
SetMax() = if true then 
counter:=Max 
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